home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 176-200 / scopedisk189 / acron42 / run.a < prev    next >
Text File  |  1995-03-19  |  752b  |  34 lines
  1.        INCLUDE "macros.i"
  2.        INCLUDE "exec/types.i"
  3.        INCLUDE "libraries/arpbase.i"
  4.        INCLUDE "exec/ables.i"
  5.  
  6. ExecBase       EQU     4
  7.  
  8.        csect   _NOMERGE,0,0,0,4
  9. ;      section _NOMERGE,code
  10.  
  11.        XDEF    MyExit,cmdlen,cmdline,run
  12.        XREF    LinkerDB,AmiCron,curdir,ArpBase,DOSBase,seglist
  13.  
  14. run    lea     LinkerDB,a4
  15.        lea     cmdline,a0
  16.        move.l  cmdlen,d0
  17.        jsr     AmiCron(pc)
  18. MyExit move.l  ArpBase(a4),a6
  19.        move.l  curdir(a4),d1
  20.        Call    UnLock
  21.  
  22.        move.l  ExecBase.w,a6
  23.        FORBID
  24.        move.l  seglist(a4),d1
  25.        move.l  DOSBase(a4),a6
  26.        Call    UnLoadSeg
  27.        move.l  ArpBase(a4),a6
  28.        Call    ArpExit
  29.        rts
  30.  
  31. cmdlen dc.l    0
  32. cmdline        ds.b    256
  33.        END
  34.